home *** CD-ROM | disk | FTP | other *** search
- object Form6: TForm6
- Left = 398
- Top = 144
- BorderStyle = bsNone
- Caption = 'Kiralanan Daire Giri�i'
- ClientHeight = 300
- ClientWidth = 400
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 400
- Height = 300
- AutoSize = True
- Picture.Data = {<image000.jpg>}
- OnMouseDown = Image1MouseDown
- end
- object Image2: TImage
- Left = 40
- Top = 245
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image001.jpg>}
- Visible = False
- end
- object Image3: TImage
- Left = 216
- Top = 245
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image002.jpg>}
- Visible = False
- end
- object Label1: TLabel
- Left = 48
- Top = 256
- Width = 137
- Height = 21
- Alignment = taCenter
- AutoSize = False
- Caption = 'Liste'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label1MouseDown
- OnMouseUp = Label1MouseUp
- end
- object Label2: TLabel
- Left = 224
- Top = 256
- Width = 137
- Height = 21
- Alignment = taCenter
- AutoSize = False
- Caption = '��k��'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label2MouseDown
- OnMouseUp = Label2MouseUp
- end
- object Label3: TLabel
- Left = 24
- Top = 96
- Width = 50
- Height = 13
- Caption = 'Ad� Soyad�'
- Transparent = True
- end
- object Label4: TLabel
- Left = 208
- Top = 96
- Width = 42
- Height = 13
- Caption = 'Telefonu'
- Transparent = True
- end
- object Label5: TLabel
- Left = 24
- Top = 136
- Width = 24
- Height = 13
- Caption = 'Semt'
- Transparent = True
- end
- object Label6: TLabel
- Left = 208
- Top = 136
- Width = 25
- Height = 13
- Caption = 'Kiras�'
- Transparent = True
- end
- object Label7: TLabel
- Left = 24
- Top = 176
- Width = 49
- Height = 13
- Caption = 'Mal Sahibi'
- Transparent = True
- end
- object Label8: TLabel
- Left = 208
- Top = 176
- Width = 42
- Height = 13
- Caption = 'Telefonu'
- Transparent = True
- end
- object Label9: TLabel
- Left = 24
- Top = 216
- Width = 24
- Height = 13
- Caption = 'Tarih'
- Transparent = True
- end
- object Label10: TLabel
- Left = 208
- Top = 216
- Width = 27
- Height = 13
- Caption = 'Adres'
- Transparent = True
- end
- object DBNavigator1: TDBNavigator
- Left = 40
- Top = 64
- Width = 320
- Height = 18
- DataSource = DataSource1
- TabOrder = 8
- end
- object DBEdit1: TDBEdit
- Left = 80
- Top = 88
- Width = 121
- Height = 21
- DataField = 'Adsoyad'
- DataSource = DataSource1
- TabOrder = 0
- OnKeyPress = DBEdit1KeyPress
- end
- object DBEdit2: TDBEdit
- Left = 256
- Top = 88
- Width = 121
- Height = 21
- DataField = 'Telefon'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 1
- OnKeyPress = DBEdit1KeyPress
- end
- object DBLookupComboBox1: TDBLookupComboBox
- Left = 80
- Top = 128
- Width = 121
- Height = 21
- DataField = 'Semt'
- DataSource = DataSource1
- KeyField = 'Semtler'
- ListField = 'Semtler'
- ListSource = DataSource2
- TabOrder = 2
- OnKeyPress = DBEdit1KeyPress
- end
- object DBEdit3: TDBEdit
- Left = 256
- Top = 128
- Width = 121
- Height = 21
- DataField = 'Fiyati'
- DataSource = DataSource1
- TabOrder = 3
- OnKeyPress = DBEdit1KeyPress
- end
- object DBEdit4: TDBEdit
- Left = 80
- Top = 168
- Width = 121
- Height = 21
- DataField = 'Malsahibi'
- DataSource = DataSource1
- TabOrder = 4
- OnKeyPress = DBEdit1KeyPress
- end
- object DBEdit5: TDBEdit
- Left = 256
- Top = 168
- Width = 121
- Height = 21
- DataField = 'Telmalsahibi'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 5
- OnKeyPress = DBEdit1KeyPress
- end
- object DBEdit6: TDBEdit
- Left = 80
- Top = 208
- Width = 121
- Height = 21
- DataField = 'Tarih'
- DataSource = DataSource1
- TabOrder = 6
- OnKeyPress = DBEdit1KeyPress
- end
- object DBMemo1: TDBMemo
- Left = 256
- Top = 208
- Width = 121
- Height = 21
- DataField = 'Adres'
- DataSource = DataSource1
- TabOrder = 7
- OnKeyPress = DBEdit1KeyPress
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 32
- Top = 24
- end
- object Table1: TTable
- Active = True
- AfterPost = Table1AfterPost
- AutoRefresh = True
- TableName = 'kiralanandaireler.dB'
- Left = 96
- Top = 16
- object Table1Adsoyad: TStringField
- FieldName = 'Adsoyad'
- end
- object Table1Kiralanandno: TAutoIncField
- FieldName = 'Kiralanandno'
- ReadOnly = True
- end
- object Table1Semt: TStringField
- FieldName = 'Semt'
- Size = 15
- end
- object Table1Fiyati: TCurrencyField
- FieldName = 'Fiyati'
- end
- object Table1Malsahibi: TStringField
- FieldName = 'Malsahibi'
- end
- object Table1Telefon: TStringField
- FieldName = 'Telefon'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Tarih: TStringField
- FieldName = 'Tarih'
- Size = 10
- end
- object Table1Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 100
- end
- object Table1Telmalsahibi: TStringField
- FieldName = 'Telmalsahibi'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- end
- object DataSource2: TDataSource
- DataSet = Table2
- Left = 192
- Top = 56
- end
- object Table2: TTable
- Active = True
- CachedUpdates = True
- AfterPost = Table2AfterPost
- TableName = 'semtler.db'
- Left = 256
- Top = 72
- object Table2No: TAutoIncField
- FieldName = 'No'
- ReadOnly = True
- end
- object Table2Semtler: TStringField
- FieldName = 'Semtler'
- Size = 15
- end
- end
- end
-